home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wsc4vb24 / modmline.bas < prev    next >
BASIC Source File  |  1997-10-30  |  3KB  |  107 lines
  1. ' RS_LINE.BAS
  2.  
  3. Option Explicit
  4.  
  5. Dim FatalFlag As Integer
  6. Dim Code As Integer
  7.  
  8. Sub Aborting ()
  9.   Dim Code As Integer
  10.   MODEM.Print "Fatal Error, Aborting..."
  11.   Code = SioDone(ThePort)
  12.   End
  13. End Sub
  14.  
  15. Sub GetIncoming ()
  16.   Dim i As Integer
  17.   Dim Buffer As String * 1024
  18.   Dim Count As Integer
  19.   Count = SioGets(ThePort, Buffer, 1024)
  20.   If Count > 0 Then
  21.     For i = 1 To Count
  22.       Call DisplayChar(MODEM, Asc(Mid$(Buffer, i, 1)))
  23.     Next i
  24.   End If
  25. End Sub
  26.  
  27. Sub GoOffLine ()
  28.   Dim Code As Integer
  29.   MODEM.menuPort.Enabled = True
  30.   MODEM.menuStatus.Enabled = False
  31.   MODEM.menuControl.Enabled = False
  32.   MODEM.menuFlow.Enabled = False
  33.   OnLineFlag = 0
  34.   'shut down port
  35.   Code = SioDone(ThePort)
  36. End Sub
  37.  
  38. Sub GoOnLine ()
  39.   Dim i As Integer
  40.   Dim RxQueSize As Integer
  41.   Dim TxQueSize As Integer
  42.   If OnLineFlag Then
  43.     Exit Sub
  44.   End If
  45.   'reset the port (1024 byte RX buffer & 512 byte TX buffer)
  46.   RxQueSize = 1024
  47.   TxQueSize = 512
  48.   Code = SioReset(ThePort, RxQueSize, TxQueSize)
  49.   If Code < 0 Then
  50.     Call SayError(MODEM, Code)
  51.     Exit Sub
  52.   End If
  53.   'set baud rate
  54.   Code = SioBaud(ThePort, TheBaudCode)
  55.   'call Aborting() if detect error after resetting port
  56.   Call DisplayLine(MODEM, "[COM" + LTrim$(Str$(1 + ThePort)) + " reset]")
  57.   ' set parms
  58.   Code = SioParms(ThePort, TheParity, TheStopBits, TheDataBits)
  59.   'set DTR
  60.   Code = SioDTR(ThePort, Asc("S"))
  61.   MODEM.menuSetDTR.Enabled = False
  62.   MODEM.menuSetDTR.Checked = True
  63.   MODEM.menuClearDTR.Enabled = True
  64.   MODEM.menuClearDTR.Checked = False
  65.   'set RTS
  66.   Code = SioRTS(ThePort, Asc("S"))
  67.   MODEM.menuSetRTS.Enabled = False
  68.   MODEM.menuSetRTS.Checked = True
  69.   MODEM.menuClearRTS.Enabled = True
  70.   MODEM.menuClearRTS.Checked = False
  71.   ' we're online !
  72.   OnLineFlag = 1
  73.   MODEM.menuPort.Enabled = False
  74.   MODEM.menuStatus.Enabled = True
  75.   MODEM.menuControl.Enabled = True
  76.   MODEM.menuFlow.Enabled = True
  77. End Sub
  78.  
  79. Sub SetBaud ()
  80. Dim Code As Integer
  81. 'Baudrate can be changed while running
  82. Code = SioBaud(ThePort, TheBaudCode)
  83. End Sub
  84.  
  85. Sub ShowConfig ()
  86.   Dim A As String
  87.   Dim B As String
  88.   Dim C As String
  89.   Dim D As String
  90.   Dim E As String
  91.   If OnLineFlag Then
  92.     A = " (Online)"
  93.   Else
  94.     A = " (Offline)"
  95.   End If
  96.   B = "COM" + LTrim$(Str$(ThePort + 1))
  97.   C = " @ " + BaudRateTable(TheBaudCode) + " "
  98.   D = Str$(TheDataBits) + ParityText(TheParity)
  99.   If TheStopBits = 0 Then
  100.     E = "1"
  101.   Else
  102.     E = "2"
  103.   End If
  104.   MODEM.Caption = "MODEM: " + B + C + D + E + A
  105. End Sub
  106.  
  107.